home *** CD-ROM | disk | FTP | other *** search
/ Practical Internet 2002 February / Practical Internet February 2002.iso / pc / Software / SiteBuilding / HomeSite_Installer.exe / data1.cab / Extensions / Includes / tdCalcLFHeight.wizml < prev    next >
Encoding:
Text File  |  2001-10-11  |  867 b   |  23 lines
  1. <WIZIF 0>
  2.     <!-- Copyright  (c) 1997-2001 Macromedia, Inc. All Rights Reserved. Consult Software License Agreement for more details.  Version 1.0 - 2001-05-25 -->
  3.     Input:     var = value copied from that entered in UI for control height; assumed to be numeric here
  4.     Output: LFHEIGHT attribute with value based on dropHeight - if var > 0
  5. </WIZIF>
  6.  
  7. <WIZIF var GT 0>
  8.     <WIZSET factHeight = 1.18>
  9.  
  10.     <WIZSET LFHeight = (var * factHeight)>
  11.     <WIZSET PosDecPt = Find(LFHeight,'.')>
  12.     <WIZIF PosDecPt EQ 0 AND Find(LFHeight,',')><WIZSET PosDecPt = Find(LFHeight,',')></WIZIF>
  13.     <WIZIF PosDecPt GT 0>
  14.         <WIZIF Mid(LFHeight,PosDecPt + 1,1) GT 4>
  15.             <WIZSET LFHeight = Left(LFheight,PosDecPt - 1) +1>
  16.         <WIZELSE>
  17.             <WIZSET LFHeight = Left(LFHeight,PosDecPt - 1)>
  18.         </WIZIF>
  19.     </WIZIF>
  20.  
  21.     <WIZIF 1>$$SpacingGap$${DefaultCase('LFHEIGHT')}=$$LFHeight</WIZIF>
  22. </WIZIF>
  23.